Voorbeeld van de instructie Property Let

Dit voorbeeld maakt gebruik van de instructie Property Let om een procedure te definiδren waarmee u een waarde toewijst aan een eigenschap. De eigenschap geeft de penkleur van een tekenpakket aan.

Dim CurrentColor As Integer
Const BLACK = 0, RED = 1, GREEN = 2, BLUE = 3

' Set the pen color property for a Drawing package.
' The module-level variable CurrentColor is set to
' a numeric value that identifies the color used for drawing.
Property Let PenColor(ColorName As String)
    Select Case ColorName    ' Check color name string.
        Case "Rood"
            CurrentColor = RED    ' Assign value for Red.
        Case "Groen"
            CurrentColor = GREEN    ' Assign value for Green.
        Case "Blauw"
            CurrentColor = BLUE    ' Assign value for Blue.
        Case Else
            CurrentColor = BLACK    ' Assign default value.
    End Select
End Property

' The following code sets the PenColor property for a drawing package
' by calling the Property let procedure.

PenColor = "Rood"